home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 249_01 / csrdemo.c < prev    next >
Text File  |  1987-10-27  |  31KB  |  776 lines
  1. /*
  2. **  C S R D E M O . C
  3. **
  4. **  This is a program to demonstrate the use and power of the C Spot Run
  5. **  C Add-On Library.  C Spot Run (CSR) is a large library of routines and
  6. **  programming aids for C programmers who work in the IBM-PC environment.
  7. **  Windowing, screen control, directory access, printer control, BIOS and
  8. **  DOS interfaces, and sophisticated data input are just a few of the many
  9. **  features of this package.
  10. **  C Spot Run is a user-supported package, distributed as "Shareware."  
  11. **  Users may register to receive source code and updates for $50, and a
  12. **  license to use CSR commercially is available for $75, which includes all
  13. **  the benefits of normal registration.  A $15 donation is requested, in
  14. **  exchange for update notifications, from those who use CSR but don't need
  15. **  source code.
  16. **
  17. **  This program is designed to work with Version 2.1 of CSR, available on
  18. **  the BBS listed below and from various BBS's around the United States and
  19. **  Canada.
  20. **
  21. **  Copyright 1987 Bob Pritchett.  All Rights Reserved.
  22. **
  23. **  07/12/87  RDP  Some more work on options, including the windows demo.
  24. **
  25. **  07/09/87  RDP  Working on more options.
  26. **
  27. **  07/05/87  RDP  More work, with sound and new menu routines.
  28. **
  29. **  06/18/87  RDP  Coding begun.  Total replacement of CSRPROMO.C.
  30. **
  31. **    New Dimension Software
  32. **      23 Pawtucket Dr.
  33. **      Cherry Hill, NJ  08003
  34. **      Voice: (609) 424-2595
  35. **       Data: (609) 354-9259 (300/1200/2400B)
  36. **
  37. */
  38.  
  39. /* --------------- Include Files ------------------- */
  40.  
  41. #include <dos.h>            /* For int86() */
  42. #include <color.h>            /* Color Code Definitions */
  43. #include <csrsound.h>            /* Note Values */
  44. #include <csrmisc.h>            /* Miscellaneous CSR Definitions */
  45. #include <skey.h>            /* Special Key Values */
  46.  
  47. /* --------------- Defined Values ----------------- */
  48.  
  49. #define NULL    00            /* Define NULL for Readability */
  50. #define MENOPTS    10            /* Number of Options on Menu */
  51.  
  52. /* --------------- Menu Definition ---------------- */
  53.  
  54. static char *mmenu[MENOPTS] =
  55.  {
  56.   "General Information",
  57.   "-Specifics Follow",            /* Line With Comment */
  58.   "Windows",
  59.   "Sound",
  60.   "Menuing",
  61.   "Directory Access",
  62.   "Input",
  63.   "Other Features",
  64.   "-More Info",
  65.   "New Dimension Software"
  66.  };
  67.  
  68. /* --------------- Global Variables --------------- */
  69.  
  70. static int c;                /* Character Input */
  71. static int sw;                /* Status Window */
  72. static int hw;                /* Help Window */
  73. static int x;                /* Do it all Variable */
  74. static int sc;                /* Saved Cursor */
  75. static int mm;                /* Main Menu Pointer */
  76. static int dtw;                /* Date and Time Window */
  77.  
  78. static int cbflag = 0;            /* Control-Break Detect Flag */
  79. static int dt = 0;            /* Type for DateTime Update */
  80.  
  81. static char name[40];            /* Name for Mailing List */
  82. static char title[40];            /* Title for Mailing List */
  83. static char company[40];        /* Company for Mailing List */
  84. static char address[40];        /* Address for Mailing List */
  85. static char city[40];            /* City for Mailing List */
  86. static char state[40];            /* State for Mailing List */
  87. static char zip[40];            /* Zip for Mailing List */
  88. static char phone[40];            /* Phone for Mailing List */
  89. static char comment[40];        /* Comment for Mailing List */
  90.  
  91. /* --------------- Program Code ------------------- */
  92.  
  93. wait_cr()                /* Wait for a Carriage Return */
  94.  {
  95.   while ( 1 )                /* Forever */
  96.    {
  97.     if ( kbhit() )            /* If Keyboard Hit */
  98.        if ( getch() == 13 )        /* If A Carriage Return */
  99.           break;            /* Break Out of Loop */
  100.     if ( cbflag )            /* If Control Break Hit */
  101.        handcb();            /* Handle It */
  102.    }
  103.  }
  104.  
  105. updt_cr()                /* Update Until Carriage Return */
  106.  {
  107.   while ( 1 )                /* Forever */
  108.    {
  109.     dtupdate();                /* Update Time and Date */
  110.     if ( getch() == 13 )        /* If A Carriage Return */
  111.        break;                /* Break Out of Loop */
  112.    }
  113.  }
  114.  
  115. dtupdate()                /* Update Date and Time */
  116.  {
  117.   int d,mn,y;
  118.   int h,m,s,hs;
  119.   char tmp[40];
  120.   while ( ! kbhit() )
  121.    {
  122.     get_date(&d,&mn,&y);
  123.     get_time(&h,&m,&s,&hs);
  124.     sprintf(tmp," Date: %02d/%02d/%d",mn,d,(y-1900));
  125.     gotoxy(2,62);        /*   We don't want to activate the window */
  126.     ccputs(tmp,BLK_F+GRN_B);    /* for this update, because of the constant */
  127.     sprintf(tmp," Time: %02d:%02d:%02d",h,m,s);    /* change from the menu to */
  128.     gotoxy(3,62);        /* here.  (We want to eliminate unnecessary */
  129.     ccputs(tmp,BLK_F+GRN_B);    /* window manipulation in this situation.) */
  130.     if ( cbflag )            /* If Control-Break Hit */
  131.        handcb();            /* Handle It */
  132.     if ( dt )                /* If Type 1 */
  133.        break;                /* Don't Wait for Key */
  134.    }
  135.  }
  136.  
  137. main()
  138.  {
  139.   sc = save_cursor();            /* Save the Cursor Position */
  140.   save_screen();            /* Save the Screen */
  141.   cursor_off();                /* Send the Cursor Bye-Bye */
  142.   cls();                /* Clear to Black and White */
  143.   cbcapt(&cbflag);            /* Capture Control-Break */
  144.  
  145.   color(WHT_F+RED_B);            /* Set Output Colors */
  146.   hw = wopen(20,6,24,74,2);        /* Open Help Window */
  147.   helpwin(0);                /* Display Help Set Zero */
  148.   color(BLK_F+GRN_B);            /* Set Output Colors */
  149.   dtw = wopen(1,61,4,78,1);        /* Open Date and Time Window */
  150.   pmfunc(dtupdate);            /* Set Update Function */
  151.   mm = pmopen(6,26,"┤ Main Menu ├",MENOPTS,mmenu,1);    /* Open Menu */
  152.   while ( 1 )                /* Forever */
  153.    {
  154.     x = pmrun(mm);            /* Run Main menu */
  155.     cursor_off();            /* Cursor Turned on by pmrun() */
  156.     if ( x == -1 )            /* If He/She Wants to Exit */
  157.        break;                /* Go Right Ahead and Break Out */
  158.     switch ( x )            /* Process Option */
  159.      {
  160.       case 0:                /* "General Information" */
  161.         gi();                /* Display General Info */
  162.         break;
  163.       case 2:                /* "Windowing" */
  164.         win();                /* Do Windowing Demo */
  165.         break;
  166.       case 3:                /* "Sound" */
  167.         snd();                /* Display Sound Info and Demo */
  168.         break;
  169.       case 4:                /* "Menuing" */
  170.         mnuing();            /* Display Menuing Information */
  171.         break;
  172.       case 5:                /* "Directory Access" */
  173.         diracc();            /* Display Directory and Info */
  174.         break;
  175.       case 6:                 /* "Input" */
  176.         inpinf();            /* Display Input Information */
  177.         break;
  178.       case 7:                 /* "Other Features" */
  179.         ofinf();            /* Display Other Features Info */
  180.         break;
  181.       case 9:                /* "New Dimension Software" */
  182.         nds();                /* Display NDS Info */
  183.         break;
  184.       default:                /* Otherwise */
  185.         beep();                /* Beep */
  186.         continue;            /* Continue While Loop */
  187.      }
  188.     helpwin(0);                /* Display Help Set Zero */
  189.    }
  190.   quit();                /* Quit */
  191.  }
  192.  
  193. helpwin(hs)                /* Update Help Window */
  194.  int hs;                /* Help Text Set */
  195.  {
  196.   int lv;                /* Local Value */
  197.   static char *hlp[15] =         /* Help Text */
  198.    {
  199.     "From the main menu you can select the option you'd like",
  200.     "by using the up and down arrow keys, space and backspace,",
  201.     "or by hitting the first letter of the option's name.",
  202.     "",
  203.     "Hit the enter key when you are ready to go on.",
  204.     "",
  205.     "Please provide the requested information in the fields specified",
  206.     "and hit the escape key when you are finished.  You will then be",
  207.     "given an opportunity to print a mailing list application.",
  208.     "",
  209.     "Hit return to print the form, or <ESC> to return to the menu.",
  210.     "",
  211.     "",
  212.     "Hit any key or wait for the program to continue.",
  213.     ""
  214.    };
  215.   wcls(hw);                /* Clear Help Window */
  216.   for ( lv = 0; lv < 3; ++lv )        /* Three Times */
  217.       wcenter(hw,lv,hlp[(hs*3)+lv]);    /*   Display Help Line */
  218.  }
  219.  
  220. handcb()                /* Handle Control Break */
  221.  {
  222.   int lv;                /* Local Value */
  223.   beep();                /* Beep for Attention */
  224.   color(YEL_F+RED_B);            /* Colors that Stand Out */
  225.   lv = message("Control-Break Detected:  Hit 'Y' to Exit Program",0);
  226.   if ( toupper(lv) == 'Y' )        /* If 'Y' Hit */
  227.      quit();                /* Quit Program */
  228.   cbflag = 0;                /* Reset Flag */
  229.  }
  230.  
  231. quit()                    /* Quit Program */
  232.  {
  233.   cbrest();                /* Restore Control-Break Handler */
  234.   pmclose(mm);                /* Close Main Menu */
  235.   wclose(dtw);                /* Close Date and Time Window */
  236.   wclose(hw);                /* Close Help Window */
  237.   cu